home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / XCOPYBLK.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-11-07  |  680 b   |  36 lines
  1. {$IBoDecl}
  2. {$IPutStr}
  3. {$ICopies}
  4. {$IBoxul}
  5. {$ICopyBlk}
  6. {$ICblkHeap}
  7. {$ISaves}
  8. {$IRestores}
  9.  
  10. BEGIN
  11.  
  12.    Mark ( HeapTop );
  13.    New ( page[1] );
  14.  
  15.    ClrScr;
  16.    Boxul   ( 1, 1, 18, 10, 1, Yellow );
  17.    CopyBlk ( 1, 1, 18, 10, 1, 12 );
  18.    SaveScreen ( page[1] );
  19.    read;
  20.    for i := 1 to 3 do
  21.    begin
  22.       CopyBlk ( 1, 1, 18, 10, 21+(i-1)*20, 1 );
  23.       CopyBlk ( 1, 1, 18, 10, 21+(i-1)*20, 12 );
  24.    end;
  25.    read;
  26.    ClrScr;
  27.    read;
  28.    for i := 1 to 3 do
  29.    begin
  30.       CblkHeap ( page[1], 1, 1, 18, 10, 21+(i-1)*20, 1 );
  31.       CblkHeap ( page[1], 1, 1, 18, 10, 21+(i-1)*20, 12 );
  32.    end;
  33.    RestoreScreen ( page[1] );
  34.    Release ( HeapTop );
  35.  
  36. END.